home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 23 / 64er_Magazin_Sonderheft_23_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / 8 servos (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  946b  |  40 lines
  1. 10 rem **** 8 servos am userport ****
  2. 50 data 120,173,20,3,141,93,3,173,21,3
  3. 51 data 141,94,3,169,118,141,20,3
  4. 52 data 169,3,141,21,3,88
  5. 53 data 173,17,208,41,239,141,17,208,96
  6. 54 data 49,234,120,173,93,3,141,20,3
  7. 55 data 173,94,3,141,21,3,88
  8. 56 data 173,17,208,9,16,141,17,208,96
  9. 57 data 165,252,141,1,221,162,50,234
  10. 58 data 202,208,252,166,253,234,202
  11. 59 data 208,252,169,0,141,1,221
  12. 60 data 108,93,3
  13. 100 poke 56579,255
  14. 110 for i=828to910:read k:poke i,k:next
  15. 120 for i=0to7:w(i)=135:next
  16. 130 print"servo nummer ?"
  17. 140 if peek(203)=35theni=0:goto242
  18. 145 if peek(203)=56theni=1:goto242
  19. 150 if peek(203)=59theni=2:goto242
  20. 155 if peek(203)= 8theni=3:goto242
  21. 160 if peek(203)=11theni=4:goto242
  22. 165 if peek(203)=16theni=5:goto242
  23. 170 if peek(203)=19theni=6:goto242
  24. 175 if peek(203)=24theni=7:goto242
  25. 180 goto140
  26. 200 if peek(203)=40then230
  27. 205 if peek(203)=43then235
  28. 210 if peek(203)=54then250
  29. 215 if peek(203)=60then130
  30. 220 goto 200
  31. 230 w(i)=w(i)+1:goto240
  32. 235 w(i)=w(i)-1
  33. 240 if w(i)<40thenw(i)=40
  34. 241 if w(i)>229thenw(i)=229
  35. 242 print"nr."i"="w(i)
  36. 243 goto200
  37. 250 poke252,2^i:poke253,w(i):sys828
  38. 260 if peek(203)=54then260
  39. 270 sys863:goto200
  40.